Carga de paquetes y lectura de datos:
### Carga de paquetes:
library(dplyr)
library(ggplot2)
library(plotly)
library(DT)
library(readr)
library(readxl)
Est_pol <-
read_xls("estadisticaspoliciales2021.xls")
Tabla
Est_pol %>%
dplyr::select(Delito, Fecha, Victima, Edad, Genero, Provincia, Canton) %>%
datatable(colnames = c(
"Delito",
"Fecha",
"Víctima",
"Edad",
"Género",
"Provincia",
"Cantón"
), options = list(pageLength = 5, language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')))
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
Gráfico 1:
# Gráfico de la cantidad de delitos por tipo de delito:
Delitos <-
Est_pol %>%
count(Delito) %>%
ggplot(aes(x = reorder(Delito, n), y = n)) +
geom_bar(stat = "identity") +
coord_flip() +
ggtitle("Cantidad de delitos por tipo de delito") +
xlab("Tipo de delito") +
ylab("Cantidad de delitos") +
theme_minimal()
ggplotly(Delitos) %>%
config(locale = 'es')